var
  FromName,
  ToName    : String;
  myfile,
  cryptfile : file;
  NumRead,
  NumWritten: Integer;
  OneByte   : Byte;
begin
  AssignFile(myfile, FromName);
  Reset(myfile, 1);
  AssignFile(cryptfile, ToName);
  Rewrite(cryptfile, 1);
  repeat
    BlockRead(myfile, OneByte, 1, NumRead);
    oneByte:= oneByte+c;
    BlockWrite(cryptfile, OneByte, 1, NumWritten);
  until (NumRead = 0) or (NumWritten <> NumRead);
  CloseFile(myfile);
  CloseFile(cryptfile);
end;

BOOL ReadFile(

    HANDLE hFile,	// handle of file to read 
    LPVOID lpBuffer,	// address of buffer that receives data  
    DWORD nNumberOfBytesToRead,	// number of bytes to read 
    LPDWORD lpNumberOfBytesRead,	// address of number of bytes read 
    LPOVERLAPPED lpOverlapped 	// address of structure for data 
   );

BOOL WriteFile(

    HANDLE hFile,	// handle to file to write to 
    LPCVOID lpBuffer,	// pointer to data to write to file 
    DWORD nNumberOfBytesToWrite,	// number of bytes to write 
    LPDWORD lpNumberOfBytesWritten,	// pointer to number of bytes written 
    LPOVERLAPPED lpOverlapped 	// pointer to structure needed for overlapped I/O
   );

var s:string;
    n:integer;
begin
 n:=123;
 s:=Memo1.Lines.Strings[n];
 s:=ListBox1.Items.Strings[n];
end;

var s:string;
    n:integer;
begin
 n:=123;
 s:=Memo1.Lines.Strings[n];
 s:=ListBox1.Items.Strings[n];

 idsmtp1.Username:=copy(s,1,pos(':',s)-1);
 delete(s,1,pos(':',s));
 idsmtp1.Password:=s;

end;

var
  List: TStringList;
begin
  List:=TStringList.Create;
  List.LoadFromFile('accounts.txt');